Fix previous grep-file-at-point change

* lisp/progmodes/grep.el (grep-file-at-point): Fix previous change.

diff --git a/lisp/progmodes/grep.el b/lisp/progmodes/grep.el
index 370bdd5516303eaa3501b0eb230e22e832830615..91c72a9429f32c112975bce9e9378a7b8b8f0572 100644 (file)
--- a/lisp/progmodes/grep.el
+++ b/lisp/progmodes/grep.el
@@ -1348,7 +1348,7 @@ command before it's run."
 (defun grep-file-at-point (point)
   "Return the name of the file at POINT a `grep-mode' buffer.
 The returned file name is relative."
-  (when-let ((msg (get-text-property (point) 'compilation-message))
+  (when-let ((msg (get-text-property point 'compilation-message))
              (loc (compilation--message->loc msg)))
     (caar (compilation--loc->file-struct loc))))